/*      dafsdfasdfasdfasdfs  */

#command USE <c,...> TEST => DbUseArea( <(c)> )

#xcommand DEF <x> <y> => test( <x>, <y> )

#xcommand ACTIVATE WINDOW <o> ;
            [ ON CLICK <c> ] ;
            [ ON DBLCLICK <d> ] ;
        => ;
           <o>:Activate( <{c}>, <{d}> )

#xcommand DEFINE DIALOG <oDlg> [ TITLE <cTitle> ] COLOR FONT ;
       => ;
          [ <oDlg> := ] TDialog():New( [<cTitle>] )

#xcommand DEFINE WINDOW <oWnd> ;
             COLOR <clr> ;
       => ;
          <oWnd> := TWindow():New( <clr> )

#xtranslate :: => Self:

#xtranslate BYNAME <V> [, <VN> ]  => ::<V> := <V> [; ::<VN> := <VN> ]

#xtranslate __DFT__( <Var> := <Dft> ) => ;
            if( <Var> == nil, <Var> := <Dft>, )

#xtranslate _MetTrans_( <Met> ) => ;
            _AsStr_( <Met> ), \{|| _AsName_( <Met> )() \}

#xcommand METHOD <name> CLASS <class> => ;
   static function <name> ; local Self := QSelf()

#xcommand DATA <data> => oClass:AddData( <(data)> )

#xcommand METHOD <name>() => oClass:AddMethod( <(name)> )

#xcommand @ <nRow>, <nCol> SAY <cText> ;
        => TSay():New( <nRow>, <nCol>, <cText> )

#xcommand Min(<x>,<y>) => if((<x><<y>),<x>,<y>)

METHOD New() CLASS TWindow

   local cTest

   DATA hWnd

   METHOD New()

   DEF 1 2

   USE Clients, Stock, Test, Another TEST

   DEFINE WINDOW oWnd COLOR "w+/b"

   ACTIVATE WINDOW oWnd ;
      ON CLICK x + y ;
      ON DBLCLICK z

   Min( 5 + 1, 6 * 2 + Test() )

   @ Test( 1, 2 ), 3 SAY "Hola"

return nil

